﻿Imports System.Data.SqlClient

Module Iniciales
    Enum CATALOGOS_IDS As Integer
        Catalogo_Actividades = 1
        Catalogo_Materiales = 2
        Catalogo_Departamentos = 3
        Catalogo_Puestos = 4
        Catalogo_Personal = 5
        Catalogo_Articulos = 6
        Catalogo_Adeudos = 7
        Catalogo_Clientes = 8
        Catalogo_Proveedores = 9
        Catalogo_Almacenes = 10
        Catalogo_Ctes_Prov = 11
    End Enum
    Public Function NOMBRES_CATALOGOS(ByVal NUM_CATALOGO As Integer) As String
        Select Case NUM_CATALOGO
            Case 1
                NOMBRES_CATALOGOS = "Catálogo Actividades"
            Case 2
                NOMBRES_CATALOGOS = "Catálogo Materiales"
            Case 3
                NOMBRES_CATALOGOS = "Catálogo Departamentos"
            Case 4
                NOMBRES_CATALOGOS = "Catálogo Puestos"
            Case 5
                NOMBRES_CATALOGOS = "Catálogo Personal"
            Case 6
                NOMBRES_CATALOGOS = "Catálogo Articulos"
            Case 7
                NOMBRES_CATALOGOS = "Catálogo Adeudos"
            Case 8
                NOMBRES_CATALOGOS = "Catálogo Clientes"
            Case 9
                NOMBRES_CATALOGOS = "Catálogo Proveedores"
            Case 10
                NOMBRES_CATALOGOS = "Catálogo Almacénes"
        End Select
    End Function
    Public Function NUMERO_CLASIFICACION(ByVal NUM_CLASIF As Integer) As String
         Select NUM_CLASIF
            Case 1
                NUMERO_CLASIFICACION = "Clasificación 1"
            Case 2
                NUMERO_CLASIFICACION = "Clasificación 2"
            Case 3
                NUMERO_CLASIFICACION = "Clasificación 3"
            Case 4
                NUMERO_CLASIFICACION = "Clasificación 1"
            Case 5
                NUMERO_CLASIFICACION = "Clasificación 2"
            Case 6
                NUMERO_CLASIFICACION = "Clasificación 3"
            Case 7
                NUMERO_CLASIFICACION = "Clasificación 1"
            Case 8
                NUMERO_CLASIFICACION = "Clasificación 2"
            Case 9
                NUMERO_CLASIFICACION = "Clasificación 3"
            Case 10
                NUMERO_CLASIFICACION = "Clasificación 1"
            Case 11
                NUMERO_CLASIFICACION = "Clasificación 2"
            Case 12
                NUMERO_CLASIFICACION = "Clasificación 3"
            Case 13
                NUMERO_CLASIFICACION = "Clasificación 1"
            Case 14
                NUMERO_CLASIFICACION = "Clasificación 2"
            Case 15
                NUMERO_CLASIFICACION = "Clasificación 3"
        End Select

    End Function
    Enum CLASIFICACIONES_ARTICULOS As Integer
        Clasificacion_1 = 1
        Clasificacion_2 = 2
        Clasificacion_3 = 3
    End Enum
    Enum CLASIFICACIONES_MATERIALES As Integer
        Clasificacion_1 = 4
        Clasificacion_2 = 5
        Clasificacion_3 = 6
    End Enum
    Enum CLASIFICACIONES_ALMACENES As Integer
        Clasificacion_1 = 7
        Clasificacion_2 = 8
        Clasificacion_3 = 9
    End Enum
    Enum CLASIFICACIONES_CLIENTES As Integer
        Clasificacion_1 = 10
        Clasificacion_2 = 11
        Clasificacion_3 = 12
    End Enum
    Enum CLASIFICACIONES_PROVEEDORES As Integer
        Clasificacion_1 = 13
        Clasificacion_2 = 14
        Clasificacion_3 = 15
    End Enum
    Enum PERMISOS__CATALOGO_MATERIALES As Integer
        ACCESAR = 1
        CREAR = 2
        EDITAR = 3
        ELIMINAR = 4
        LISTA_PROVEEDORES = 5
        EXPORTAR = 6
        IMPORTAR = 7
        REPORTES = 8
    End Enum
    Enum PERMISOS_UNIDADES_MEDIDA As Integer
        ACCESAR = 9
        CREAR = 10
        ELIMINAR = 11
        EXPORTAR = 12
        REPORTES = 13
    End Enum
    Enum PERMISOS_CATEGORIAS_PRODUCTOS
        ACCESAR = 14
        CREAR = 15
        ELIMINAR = 16
        EXPORTAR = 17
        REPORTES = 18
    End Enum
    Enum PERMISOS_CLASIFICACIONES_MATERIALES
        ACCESAR = 19
        CREAR = 20
        ELIMINAR = 21
        EXPORTAR = 22
        REPORTES = 23
    End Enum
    Enum PERMISOS_CLASIFICACIONES_ARTICULOS
        ACCESAR = 24
        CREAR = 25
        ELIMINAR = 26
        EXPORTAR = 27
        REPORTES = 28
    End Enum
    Enum PERMISOS_MONEDAS
        ACCESAR = 29
        CREAR = 30
        ELIMINAR = 31
        EXPORTAR = 32
        REPORTES = 33
    End Enum
    Enum PERMISOS__CATALOGO_ALMACENES As Integer
        ACCESAR = 34
        CREAR = 35
        EDITAR = 36
        ELIMINAR = 37
        LISTA_PROVEEDORES = 38
        EXPORTAR = 39
        IMPORTAR = 40
        REPORTES = 41
    End Enum
    Enum PERMISOS_UBICACIONES As Integer
        ACCESAR = 42
        CREAR = 43
        ELIMINAR = 44
        EXPORTAR = 45
        REPORTES = 46
    End Enum
    Enum PERMISOS_ALMACENES As Integer
        ACCESAR = 47
        CREAR = 48
        ELIMINAR = 49
        EXPORTAR = 50
        REPORTES = 51
    End Enum
    Enum PERMISOS_CATALOGO_CLIENTES_PROVEEDORES As Integer
        ACCESAR = 52
        CREAR = 53
        EDITAR = 54
        ELIMINAR = 55
        LISTA_PROVEEDORES = 56
        EXPORTAR = 57
        IMPORTAR = 58
        REPORTES = 59

    End Enum
    Enum PERMISOS_CLASIFICACIONES_ALMACENES
        ACCESAR = 60
        CREAR = 61
        ELIMINAR = 62
        EXPORTAR = 63
        REPORTES = 64
    End Enum
    Enum PERMISOS_CLASIFICACIONES_CLIENTES
        ACCESAR = 65
        CREAR = 66
        ELIMINAR = 67
        EXPORTAR = 68
        REPORTES = 69
    End Enum
    Enum PERMISOS_CLASIFICACIONES_PROVEEDORES
        ACCESAR = 70
        CREAR = 71
        ELIMINAR = 72
        EXPORTAR = 73
        REPORTES = 74
    End Enum
    Enum PERMISOS_CATALOGO_PROVEEDORES As Integer
        ACCESAR = 75
        CREAR = 76
        EDITAR = 77
        ELIMINAR = 78
        LISTA_PROVEEDORES = 79
        EXPORTAR = 80
        IMPORTAR = 81
        REPORTES = 82

    End Enum
    Enum PERMISOS_MONEDAS_TIPO_CAMBIO
        AGREGAR = 83
        ELIMINAR = 84
        EDITAR = 85
        ACCESAR = 86
        REPORTES = 87
    End Enum
    Enum PERMISOS_UNIDADES_LOGICAS
        AGREGAR = 88
        ELIMINAR = 89
        EDITAR = 90
        ACCESAR = 91
        REPORTES = 92
    End Enum
    Enum PERMISOS_COLORES
        AGREGAR = 93
        ELIMINAR = 94
        EDITAR = 95
        ACCESAR = 96
        REPORTES = 97
    End Enum
    Enum PERMISOS_MAQUINAS
        AGREGAR = 98
        EDITAR = 99
        ELIMINAR = 100
        ACCESAR = 101
        REPORTES = 102

    End Enum
    Enum PERMISOS_DESTAJOS
        INGRESAR_RESUMEN = 103
        VER_DETALLE = 104
        AGREGAR = 105
        ELIMINAR = 106
        REGISTRAR_NUEVAS = 112

    End Enum
    Enum PERMISOS_PERIODOS
        INGRESAR = 107
        CREAR = 108

    End Enum
    Enum PERMISOS_CONSECUENCIAS
        REGISTRAR = 109
        AUTORIZAR = 110
        VER_DETALLES = 113
        VER_LISTADO = 114
    End Enum
    Enum PERMISOS_OPERACIONES
        ASIGNAR = 111
        INGRESAR_RESUMEN = 112

    End Enum
    Enum PERMISOS_DACTILARES
        VER_LISTADO = 115
        NUEVO = 116
        AVANZADO = 117
        ELIMINAR = 118

    End Enum
    Enum PERMISOS_MODULO_OPERACIONES
        INGRESAR = 119
        CREAR_NOTAS = 120
        ACTUALIZAR_RELOJ = 121
        CATALOGO = 122
        VER_DETALLES_OPERACION = 123
        CREAR_OPERACION_MENSAJES_SEGUIDORES = 124
        EDITAR_OPERACION = 125
        ELIMINAR_OPERACION = 126




    End Enum
    Enum PERMISOS_MODULO_PEDIDOS
        INGRESAR = 127
        VER_CATALOGO_CLIENTES = 128
        VER_DETALLES_CLIENTES = 129
        EDITAR_CLIENTES = 130
        CREAR_CLIENTES = 131
        VER_CATALOGOS_ARTICULOS = 132
        VER_dETALLES_ARTICULOS = 133
        EDITAR_ARTICULOS = 134
        CREAR_aRTICULOS = 135
        ELIMINAR_CLIENTES = 136
        ELIMINAR_ARTICULOS = 137
        DEFINIR_CUBICACIONES = 138
        IMPORTAR_HOJA = 139
        VER_CUBICACIONES = 140
        VER_PEDIDOS = 141
        VER_DETALLE_PEDIDOS = 142
        CREAR_PEDIDOS = 143
        IMPORTAR_PEDIDOS = 144
        ELIMINAR_PEDIDOS = 145
        EDITAR_PEDIDOS = 146
        IMPORTAR_HISTORICOS = 147


    End Enum
    Public Function PERMISOS_USUARIO(ByVal IDCITRA As Integer) As Integer
        If NIVEL_USUARIO = 1 Then
            PERMISOS_USUARIO = 1
        Else
            Dim IDPERMISO As Integer = BuscarIntDatoInicial("SELECT IDPERMISO FROM PERMISOS_USUARIOS P INNER JOIN USUARIOS_CITRA U ON P.IDUSUARIO=U.IDUSUARIO WHERE UPPER(NOMBRE_USUARIO)='" & UCase(UsuarioActivo) & "' AND ESTATUS=1 AND IDCITRA=" & IDCITRA)
            If IDPERMISO > 0 Then
                PERMISOS_USUARIO = 1
            Else
                PERMISOS_USUARIO = 0
            End If
        End If
    End Function
    Enum TIPO_UNIDADES_LOGISTICA
        UNIDAD = 1
        PAQUETE = 2
        CAJA = 3
        PALLET = 4

    End Enum
    Public Function TIPO_PALLET_UNIDAD(ByVal TIPO As String)
        Select Case TIPO
            Case "Unidad"
                TIPO_PALLET_UNIDAD = TIPO_UNIDADES_LOGISTICA.UNIDAD

            Case "Paquete"
                TIPO_PALLET_UNIDAD = TIPO_UNIDADES_LOGISTICA.PAQUETE
            Case "Caja"
                TIPO_PALLET_UNIDAD = TIPO_UNIDADES_LOGISTICA.CAJA
            Case "Tarima (Pallet)"
                TIPO_PALLET_UNIDAD = TIPO_UNIDADES_LOGISTICA.PALLET
        End Select
    End Function
    Enum ORIGEN_CTES_PROV As Integer
        CLIENTES = 1
        PROVEEDORES = 2
        CLIENTE_PROVEEDOR = 3
        GENERAL = 4
    End Enum
    Enum ORIGEN_PRODUCTOS As Integer
        ARTICULOS = 0
        MATERIALES = 1
        GENERAL = 2
    End Enum
    Enum MODULO_OPERACIONES_MENU_INICIAL
        INICIO = 1
        CATALOGOS = 2
        DISTRIBUCION = 3
        REGISTRO = 4
        SANCIONES = 5
        INDICADORES = 6

    End Enum
#Region "FORMULARIOS"
    Enum NOMBRES_FORMULARIOS As Integer
        NINGUNO = 0
        MAIN = 1
        MODULO_OPERACIONES = 2
        MODULO_OPERACIONES_INICIO = 3
        MODULO_OPERACIONES_CATALOGOS = 4
        MODULO_OPERACIONES_DISTRIBUCION = 5
        MODULO_OPERACIONES_REGISTRO = 6
        MODULO_OPERACIONES_SANCIONES = 7
        MODULO_OPERACIONES_INDICADORES = 8
        MODULO_OPERACIONES_CATALOGO_REGISTRO = 9
        MODULO_PEDIDOS = 10
        MODULO_PEDIDOS_CLIENTES = 11
        MODULO_PEDIDOS_ARTICULOS = 12
        MODULO_PEDIDOS_CUBICACIONES = 13
        MODULO_PEDIDOS_PEDIDOS = 14
        MODULO_PERIDOS_CLIENTES_ARTICULOS = 15

        frmClavesDestajo = 999
        frmDeptosProd = 1000
    End Enum
    Friend Function Formulario(ByVal IDFORMULARIO As NOMBRES_FORMULARIOS) As List(Of String)
        Dim NOMBRE As String = ""
        Dim DESCRIPCION As String = ""
        Dim TIPO As String = ""

        Select Case IDFORMULARIO
            Case NOMBRES_FORMULARIOS.MAIN
                NOMBRE = "frmMAINWINDOW"
                DESCRIPCION = "Menú Citra"
                TIPO = "1"
            Case NOMBRES_FORMULARIOS.MODULO_OPERACIONES
                NOMBRE = "frmMODULOOPERACIONES"
                DESCRIPCION = "Módulo de Operaciones"
                TIPO = "2"
            Case NOMBRES_FORMULARIOS.MODULO_OPERACIONES_CATALOGOS
                NOMBRE = "frmMODULOOPERACIONES_PAGECATALOGOS"
                DESCRIPCION = "Catálogo de Operaciones"
                TIPO = "3"
            Case NOMBRES_FORMULARIOS.MODULO_OPERACIONES_DISTRIBUCION
                NOMBRE = "frmMODULOOPERACIONES_PAGEDISTRIBUCION"
                DESCRIPCION = "Distribución de Operaciones"
                TIPO = "3"
            Case NOMBRES_FORMULARIOS.MODULO_OPERACIONES_REGISTRO
                NOMBRE = "frmMODULOOPERACIONES_PAGEREGISTRO"
                DESCRIPCION = "Registro de Operaciones terminadas"
                TIPO = "3"
            Case NOMBRES_FORMULARIOS.MODULO_OPERACIONES_SANCIONES
                NOMBRE = "frmMODULOOPERACIONES_PAGESANCIONES"
                DESCRIPCION = "Sanciones: Actas y Consecuencias"
                TIPO = "3"
            Case NOMBRES_FORMULARIOS.MODULO_OPERACIONES_INDICADORES
                NOMBRE = "frmMODULOOPERACIONES_PAGEINDICADORES"
                DESCRIPCION = "Indicadores de Productividad"
                TIPO = "3"
            Case NOMBRES_FORMULARIOS.MODULO_OPERACIONES_INDICADORES
                NOMBRE = "frmMODULOOPERACIONES_PAGEINDICADORES"
                DESCRIPCION = "Indicadores de Productividad"
                TIPO = "3"
            Case NOMBRES_FORMULARIOS.MODULO_OPERACIONES_CATALOGO_REGISTRO
                NOMBRE = "frmCREAOPERACION"
                DESCRIPCION = "Registro de Operaciones"
                TIPO = "4"
            Case NOMBRES_FORMULARIOS.MODULO_PEDIDOS
                NOMBRE = "frmMODULO_PEDIDOS"
                DESCRIPCION = "Módulo de Pedidos"
                TIPO = "1"
            Case NOMBRES_FORMULARIOS.MODULO_PEDIDOS_CLIENTES
                NOMBRE = "frmMODULOP_PEDIDOS_PAGECLIENTES"
                DESCRIPCION = "Catálogo de Clientes"
                TIPO = "2"
            Case NOMBRES_FORMULARIOS.MODULO_PEDIDOS_ARTICULOS
                NOMBRE = "frmMODULO_PEDIDOS_PAGEARTICULOS"
                DESCRIPCION = "Catálogo de Articulos (Estilos)"
                TIPO = "3"
            Case NOMBRES_FORMULARIOS.MODULO_PEDIDOS_CUBICACIONES
                NOMBRE = "frmMODULO_PEDIDOS_PAGECUBICACIONES"
                DESCRIPCION = "Tabla de Cubicaciones"
                TIPO = "3"
            Case NOMBRES_FORMULARIOS.MODULO_PEDIDOS_PEDIDOS
                NOMBRE = "frmMODULO_PEDIDOS_PAGEPEDIDOS"
                DESCRIPCION = "Gestion de Pedidos"
                TIPO = "3"
            Case NOMBRES_FORMULARIOS.MODULO_PERIDOS_CLIENTES_ARTICULOS
                NOMBRE = "frmMODULO_PEDIDOS_CTESLISTA"
                DESCRIPCION = "Lista de Artículos por cliente"
                TIPO = "4"
            Case NOMBRES_FORMULARIOS.frmClavesDestajo
                'Formulario = "frmClavesDestajo"
            Case NOMBRES_FORMULARIOS.frmDeptosProd
                ' Formulario = "frmDeptosProd"
            Case Else
                ' Formulario = "Ninguno"
        End Select

        Formulario = New List(Of String)

        Formulario.Add(NOMBRE)
        Formulario.Add(DESCRIPCION)
        Formulario.Add(TIPO)

    End Function
#End Region
    Enum TIPOS_REGISTRO_CATALOGOS
        REGISTRO_UNICO = 1
        REGISTRO_VARIOS = 2
        MODO_EDICION = 3
    End Enum
End Module
